home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-02 / fgl110c.zip / 11-05.C < prev    next >
Text File  |  1992-01-31  |  1KB  |  52 lines
  1. #include <conio.h>
  2. #include <fastgraf.h>
  3. #include <stdio.h>
  4. #include <stdlib.h>
  5.  
  6. void main(void);
  7.  
  8. void main()
  9. {
  10.    int new_mode, old_mode;
  11.  
  12.    new_mode = fg_bestmode(320,200,2);
  13.    if (new_mode < 0 || new_mode == 12) {
  14.       printf("This program requires a 320 ");
  15.       printf("x 200 color graphics mode.\n");
  16.       exit(1);
  17.       }
  18.    old_mode = fg_getmode();
  19.    fg_setmode(new_mode);
  20.    fg_allocate(1);
  21.    fg_sethpage(1);
  22.  
  23.    fg_setcolor(9);
  24.    fg_rect(0,319,0,199);
  25.    fg_setcolor(15);
  26.    fg_rect(132,188,50,150);
  27.  
  28.    fg_setcolor(10);
  29.    fg_move(160,67);
  30.    fg_draw(175,107);
  31.    fg_draw(140,82);
  32.    fg_draw(180,82);
  33.    fg_draw(145,107);
  34.    fg_draw(160,67);
  35.    fg_paint(160,77);
  36.    fg_paint(150,87);
  37.    fg_paint(160,87);
  38.    fg_paint(170,87);
  39.    fg_paint(155,97);
  40.    fg_paint(165,97);
  41.  
  42.    while (kbhit() == 0) {
  43.       fg_waitfor(1);
  44.       fg_scroll(136,184,50,150,-4,0);
  45.       }
  46.    fg_waitkey();
  47.  
  48.    fg_freepage(1);
  49.    fg_setmode(old_mode);
  50.    fg_reset();
  51. }
  52.